home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_38.arc / KAYPRO38.FIG < prev    next >
Encoding:
Text File  |  1987-09-21  |  1.1 KB  |  54 lines
  1.  
  2. ;Kaypro Column Figure 2
  3.  
  4. ;Figure 2 - Undocumented Z80 Codes
  5.  
  6. ;****************************************
  7. ;       T3.ASM
  8. ;TEST OF UNDOC. Z80 CODES SPEED.
  9. ;****************************************
  10.  
  11.         ORG     100H
  12.  
  13. START:
  14.         LD      E,0FFH
  15.         LD      C,6
  16.         CALL    5
  17.         OR      A
  18.         JP      Z,START         ;WAIT FOR KEYPRESS
  19.         CALL    SHOWX
  20.  
  21.         DB      0DDH            ;SET UP OUTER LOOP
  22.         LD      H,0FFH
  23. OUTLP:
  24.         DB      0FDH            ;SET UP MIDDLE LOOP
  25.         LD      H,0FFH
  26. MIDLP:
  27.         DB      0FDH            ;SET UP INNER LOOP
  28.         LD      L,0FFH
  29. INLP:
  30.         DB      0FDH
  31.         DEC     L
  32.         JP      NZ,INLP
  33.  
  34.         DB      0FDH
  35.         DEC     H
  36.         JP      NZ,MIDLP
  37.  
  38.         DB      0DDH
  39.         DEC     H
  40.         JP      NZ,OUTLP
  41.         CALL    SHOWX
  42.         RET
  43.  
  44. SHOWX:  LD      E,7             ;BELL
  45.         CALL    CONOUT
  46.         LD      E,`X'
  47. CONOUT: LD      C,6
  48.         CALL    5
  49.         RET
  50.  
  51. ;*****************************************
  52.         END             ;OF T3.ASM
  53. ;*****************************************
  54.